home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr29
/
keycod.zip
/
KEYCODE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-27
|
1KB
|
38 lines
PROGRAM FindKeyCodes;
USES CRT;
VAR Key: Char;
BEGIN
ClrScr; {Clears the Screen}
WHILE Key <> 'Q' DO {Repeat this until you press Cap. Q}
BEGIN
Writeln ('Key: '); {Displays Key:}
WHILE NOT KeyPressed DO; {Searchs for 2 keystrokes to include}
WHILE KeyPressed DO {Extended Character Set}
BEGIN {[NEXT]}
Key := ReadKey; {Actual obtaining of the keystrokes}
Writeln (Ord (Key)); {Displays the ordinal value of keystroke}
END
END
END.
{Written by Rich Siegel}
{Freeware}